home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 86 / 64er_Magazin_Sonderheft_86_19xx_Markt__Technik_de_Side_A.d64 / collection kit (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  12.0 KB  |  352 lines
  1. 0 rem *********************************
  2. 1 rem *                               *
  3. 2 rem *  the stamping collection kit  *
  4. 3 rem *                               *
  5. 4 rem *  (c) by arndt ganse           *
  6. 8 rem *                               *
  7. 9 rem *********************************
  8. 10 poke53280,12:poke53281,12:print"[147]":dima$(22),rv$(22),b$(21):q=1:z=4:s=1
  9. 20 fori=1to40:b1$=b1$+" ":b2$=b2$+"[192]":next:br=12:lg=11:deffnzb(x)=lg+z:ic=1
  10. 30 deffnsb(x)=s+len(a$(az))+1:sa=1:iq=1
  11. 40 sz=6500:sw=1:fori=1to40:b3$=b3$+"[195]":next:ifps=1thensz=4500
  12. 41 ff$(1)="koenigreich":ff$(2)="grossherzogtum":ff$(3)="herzogtum"
  13. 42 ff$(4)="republik":ff$(5)="kaiserreich":ff$(6)="freistaat"
  14. 43 ff$(7)="fuerstentum":ff$(8)="volksstaat"
  15. 49 goto1000
  16. 50 :
  17. 60 rem standardmaske
  18. 70 :
  19. 80 print"[179][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][178]";
  20. 90 print"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]";:ford=1to21
  21. 100 print"[180]                                      [170]";:next
  22. 110 print"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]";
  23. 111 ifps=0thenprint" part i";
  24. 112 ifps=1thenprint" part ^";
  25. 113 printleft$(b1$,15);
  26. 114 ifu%=0thenprint" data bank closed"
  27. 115 ifu%=1thenprint"   data bank open"
  28. 119 return
  29. 120 :
  30. 130 rem menueerstellung
  31. 140 :
  32. 150 print"[179][171][171]";x$(1);"[171][171]";x$(2);"[171][171]";x$(3);"[171][171]";x$(4);"[171][171]";x$(5);"[171][171]";x$(6);
  33. 155 print"[171][171][178]"
  34. 160 return
  35. 170 :
  36. 180 rem menueauswahl
  37. 190 :
  38. 200 vy=1:j=peek(56320):getx$
  39. 210 if(jand8)=0orx$=""thenifiq=6theniq=1:goto260
  40. 220 if(jand8)=0orx$=""thenifiq<6theniq=iq+1:goto260
  41. 230 if(jand4)=0orx$="[157]"thenifiq=1theniq=6:goto260
  42. 240 if(jand4)=0orx$="[157]"thenifiq>1theniq=iq-1:goto260
  43. 250 ifj=111orx$=chr$(13)thenvy=0:return
  44. 260 fori=1to6:x$(i)="[146]"+right$(x$(i),5):next:x$(iq)=""+right$(x$(iq),5)
  45. 270 gosub120:ifvy=1thenvy=0:goto170
  46. 280 return
  47. 290 :
  48. 300 rem window-technik
  49. 310 :
  50. 320 ifz>(21-lg)ors>(37-br)thenz=2:s=2
  51. 330 z1=z+1:s1=s+1:poke214,z:poke211,s:sys58732:print"[213]";left$(b2$,br);"[201]"
  52. 340 forx=1tolg:poke214,z+x:poke211,s:sys58732:print"[221]";left$(b1$,br);"[194]":next
  53. 350 poke214,z+x:poke211,s:sys58732:print"[202]";left$(b3$,br);"[203]":fori=1toaz
  54. 360 poke214,z1:poke211,s1:sys58732:printa$(i):z1=z1+1:next:poke646,1:return
  55. 370 :
  56. 380 rem input-routine
  57. 390 :
  58. 400 poke198,0
  59. 410 sb=fnsb(x):zb=fnzb(x):be$="":poke214,zb:poke211,sb:sys58732:poke204,0
  60. 420 getx$:ifx$=chr$(13)andlen(be$)>=mithenpoke204,1:print" ":return
  61. 430 ifx$=""then420
  62. 440 x=asc(x$):ifx=20andbe$=""then420
  63. 445 ifx=133andps=0then850
  64. 447 ifx>132andx<141andps=1ands=6then940
  65. 450 ifx=20thenprint"[157]  [157][157]";:be$=left$(be$,len(be$)-1)
  66. 460 ifx<32orx>95orlen(be$)>=mathen420
  67. 470 printx$;:ifx=32thenbe$=be$+"":goto420
  68. 475 be$=be$+x$:goto420
  69. 480 :
  70. 490 rem menueauswahl-routine
  71. 500 :
  72. 510 poke198,0
  73. 520 fori=1toaz:rv$(i)="[146]":nexti:q=q+((q>az)*az):rv$(q)="":z1=z+1:fori=1toaz
  74. 530 poke214,z1:poke211,s1:sys58732:printrv$(i);a$(i);"[146]":z1=z1+1:nexti
  75. 540 j=peek(56320):getx$
  76. 550 if(jand1)=0orx$="[145]"thenifq=bnthenq=en:goto520
  77. 560 if(jand1)=0orx$="[145]"thenifq>bnthenq=q-1:goto520
  78. 570 if(jand2)=0orx$=""thenifq=enthenq=bn:goto520
  79. 580 if(jand2)=0orx$=""thenifq<enthenq=q+1:goto520
  80. 590 ifj=111orx$=chr$(13)thenreturn
  81. 600 goto520
  82. 700 :
  83. 710 rem zeiger positionieren
  84. 720 :
  85. 730 hb%=sa/256:lb%=sa-hb%*256:print#15,"p";chr$(3);chr$(lb%);chr$(hb%);chr$(1)
  86. 740 return
  87. 750 :
  88. 760 rem disk ueberpfuefen
  89. 770 :
  90. 780 f%=peek(768):poke768,185:open1,8,15,"i":close1:poke768,f%
  91. 790 ifst<>-128thenreturn
  92. 800 az=6:a$(1)="drive":a$(2)="not":a$(3)="ready.":a$(4)="":a$(5)="press":s=10
  93. 810 a$(6)="button":z=z+2:br=6:lg=6:gosub320:gosub990:goto780
  94. 820 :
  95. 830 rem input zusatz i
  96. 840 :
  97. 850 poke211,sb:sys58732:ifs=6thends=1
  98. 860 ifs=11thends=2
  99. 870 ifs=15thends=3
  100. 880 ifs=25thends=4
  101. 890 ifs=28thends=5
  102. 900 printtr$(ds);:be$=tr$(ds):poke198,1:poke631,13:goto420
  103. 910 :
  104. 920 rem input zusatz ii
  105. 930 :
  106. 940 poke211,sb:sys58732:ifs=6thends=1
  107. 950 printff$(x-132);:be$=ff$(x-132):poke198,1:poke631,13:goto420
  108. 960 :
  109. 970 rem warten auf reaktion
  110. 980 :
  111. 990 getx$:ifpeek(56320)=111thenx$=chr$(13)
  112. 995 ifx$=chr$(13)thenreturn
  113. 999 goto990
  114. 1000 :
  115. 1010 rem hauptverteiler
  116. 1020 :
  117. 1030 x$(1)="crte[146]":x$(2)="open[146]":x$(3)="disk[146]":x$(4)="edit[146]":x$(5)="prnt[146]"
  118. 1040 x$(6)="exit[146]":gosub80:gosub260:gosub150:gosub200
  119. 1050 oniqgoto3000,2000,4000,7000,8000,6000
  120. 1060 end
  121. 2000 :
  122. 2010 rem open
  123. 2020 :
  124. 2030 ifu%=0thenu%=1:goto2070
  125. 2040 az=8:a$(1)="you must":a$(2)="first":a$(3)="close":a$(4)="the last":s=5:z=2
  126. 2050 a$(5)="data bank":a$(6)="":a$(7)="press":a$(8)="button":br=9:lg=8:gosub320
  127. 2060 gosub990:goto1030
  128. 2070 az=5:a$(1)="please":a$(2)="enter":a$(3)="name":a$(4)="":a$(5)=":":s=7:z=2
  129. 2080 br=6:lg=5:mi=1:ma=5:gosub320:gosub400:ifbe$="_"then1030
  130. 2085 da$=be$:az=6:a$(1)="please":s=5:br=9
  131. 2090 a$(2)="insert":a$(3)="your data":a$(4)="disk and":a$(5)="press"
  132. 2100 a$(6)="button":lg=6:z=z+2:gosub320:gosub990:gosub780
  133. 2110 open15,8,15,"i0":open1,8,3,da$:goto1030
  134. 3000 :
  135. 3010 rem create
  136. 3020 :
  137. 3030 ifu%<>0then2030
  138. 3040 az=5:a$(1)="please":a$(2)="enter":a$(3)="name":a$(4)="":a$(5)=":":s=1:z=2
  139. 3050 br=6:lg=5:mi=1:ma=5:gosub320:gosub400:ifbe$="_"then1030
  140. 3055 da$=be$:az=6:a$(1)="please":s=1:br=9
  141. 3060 a$(2)="insert a":a$(3)="formatted":a$(4)="disk and":a$(5)="press"
  142. 3070 a$(6)="button":lg=6:z=z+2:gosub320:gosub990:gosub780:az=5:s=1:z=z+2
  143. 3080 a$(1)="enter":a$(2)="no. of":a$(3)="entries":a$(4)="":a$(5)=":":br=7:lg=5
  144. 3090 mi=1:ma=4:gosub320:gosub400:sz=val(be$):ifsz<1then3090
  145. 3100 ifps=0andsz>6500then3090
  146. 3105 ifps=1andsz>4500then3090
  147. 3110 ifps=0thensl=25:hb=int(sz/255):lb=sz-hb*255:open15,8,15,"i0"
  148. 3115 ifps=1thensl=31:hb=int(sz/255):lb=sz-hb*255:open15,8,15,"i0"
  149. 3120 open1,8,3,da$+",l,"+chr$(sl):print#15,"p";chr$(3);chr$(lb);chr$(hb);chr$(1)
  150. 3130 print#1,chr$(255):close1:close15:goto1030
  151. 4000 :
  152. 4010 rem disk commands
  153. 4020 :
  154. 4030 ifu%<>0then2030
  155. 4040 az=5:a$(1)="":a$(2)="disk commands":a$(3)="directory":s=9:z=2:br=14:lg=5
  156. 4050 a$(4)="return to menu":a$(5)="":en=4:bn=2:q=2:gosub320:gosub510
  157. 4060 onqgoto0,4070,4110,1030
  158. 4070 az=5:a$(1)="insert disk":a$(2)="into drive":a$(3)="":a$(4)="press button"
  159. 4080 br=12:lg=4:s=s+2:z=z+2:gosub320:gosub990:gosub780:print"[147]"
  160. 4090 mi=1:ma=79:s=0:z=0:br=0:lg=0:gosub400:open1,8,15,be$:close1:open15,8,15
  161. 4100 input#15,a,b$,c,d:close15:printa,b$,c,d:print"press fire button"
  162. 4105 gosub990:goto4040
  163. 4110 az=5:a$(1)="insert disk":a$(2)="into drive":a$(3)="":a$(4)="press button"
  164. 4120 br=12:lg=4:s=s+2:z=z+2:gosub320:gosub990:gosub780:print"[147]"
  165. 4130 open1,8,0,"$":get#1,a$,a$
  166. 4140 get#1,a$,a$:ifst=64thenclose1:goto4180
  167. 4150 get#1,a$,b$:printasc(a$+chr$(0))+256*asc(b$+chr$(0));
  168. 4160 get#1,a$:printa$;:ifa$<>""then4160
  169. 4170 print:getx$:ifx$="_"then4180
  170. 4175 goto4140
  171. 4180 print"press fire button.":gosub990:goto4040
  172. 6000 :
  173. 6010 rem exit
  174. 6020 :
  175. 6030 close1:close15:u%=0:az=5:a$(2)="return to menu":a$(3)="return to basic"
  176. 6040 a$(1)="":a$(5)="":z=2:bn=2:en=4:br=15:lg=5:ifps=0thena$(4)="enter part ^"
  177. 6045 ifps=1thena$(4)="enter part i"
  178. 6050 s=22:q=2:gosub320:gosub510:ifq=2then1030
  179. 6060 ifq=4andps=1thenps=0:goto40
  180. 6070 ifq=4andps=0thenps=1:goto40
  181. 6080 end
  182. 7000 :
  183. 7010 rem edit
  184. 7020 :
  185. 7030 ifu%=1then7065
  186. 7040 az=5:a$(1)="you first":a$(2)="have to open":a$(3)="a data bank"
  187. 7050 a$(4)="":a$(5)="press button":br=12:lg=5:z=2:s=16:gosub320
  188. 7060 gosub990:goto1030
  189. 7065 ifps=1then9030
  190. 7070 az=7:a$(1)="read data bank":a$(2)="edit data bank":br=14:lg=7:z=2:s=15
  191. 7080 a$(3)="search an item":a$(4)="count entries":a$(7)="return to menu"
  192. 7090 a$(5)="save entries":a$(6)="edit data list":bn=1:en=7:gosub320:gosub510
  193. 7100 onqgoto7110,7180,7420,7320,7310,10030,1030
  194. 7110 az=6:a$(1)="please enter":a$(2)="the number":a$(3)="you want to":s=s+2
  195. 7120 a$(4)="see.":a$(5)="":a$(6)=":":z=z+1:br=12:lg=6:mi=0:ma=4:gosub320
  196. 7130 gosub400:ifbe$=""then7145
  197. 7135 ifbe$="_"then7030
  198. 7140 sa=val(be$):ifsa+20>szorsa<1then7120
  199. 7145 ifsa+20>szorsa<1then7120
  200. 7150 gosub80:gosub730:fori=1to21:input#1,b$(i):next:print"":fori=1to21:w$=""
  201. 7155 forx=1toi:w$=w$+"":next:printw$;"";sa
  202. 7160 sa=sa+1:next:print"":fori=1to21:w$="":forx=1toi:w$=w$+"":next
  203. 7165 printw$;"";b$(i):next:gosub990
  204. 7170 goto7110
  205. 7180 az=6:a$(1)="please enter":a$(2)="the number":a$(3)="you want to":s=s+2
  206. 7190 a$(4)="edit":a$(5)="":a$(6)=":":z=z+1:br=12:lg=6:mi=0:ma=4:gosub320
  207. 7200 gosub400:ifbe$=""then7215
  208. 7205 ifbe$="_"then7030
  209. 7210 sa=val(be$):sw=sa:ifsa+21>szorsa<1then7190
  210. 7215 sw=sa:ifsa+21>szorsa<1then7190
  211. 7220 gosub80:gosub730:fori=1to21:input#1,b$(i):next:print"":fori=1to21:w$=""
  212. 7225 forx=1toi:w$=w$+"":next:printw$;"";sw
  213. 7230 sw=sw+1:next:print"":fori=1to21:w$="":forx=1toi:w$=w$+"":next
  214. 7235 printw$;"";b$(i):next:z=1:br=0:lg=0:a$(1)="":az=1
  215. 7240 fori=1to21:ifui=1thennext:ui=0:goto7180
  216. 7243 tr$="":mi=4:ma=4:s=6:z=z+1:gosub400:tr$=tr$+be$+" ":tr$(1)=be$
  217. 7245 ifbe$="____"thenui=1:next:ui=0:goto7180
  218. 7250 mi=0:ma=3:s=11:gosub400:tr$=tr$+left$(be$+"   ",3)+" ":tr$(2)=be$
  219. 7260 mi=0:ma=9:s=15:gosub400:tr$=tr$+left$(be$+"         ",9)+" ":tr$(3)=be$
  220. 7270 mi=1:ma=2:s=25:gosub400:tr$=tr$+left$(be$+"  ",2)+" ":tr$(4)=be$
  221. 7280 mi=1:ma=1:s=28:gosub400:tr$=tr$+left$(be$+" ",1):tr$(5)=be$
  222. 7290 gosub730:print#1,tr$:sa=sa+1:next
  223. 7300 goto7215
  224. 7310 close1:close15:open15,8,15,"i0":open1,8,3,da$:goto7030
  225. 7320 az=5:a$(1)="counting":fori=2to4:a$(i)="":next:s=s+2:z=z+2:lg=5:br=8
  226. 7330 a$(5)="stand by":gosub320:ne=0:sa=1:gosub730
  227. 7340 input#1,a$:b$=right$(a$,1):sa=sa+1
  228. 7350 poke214,z+3:poke211,s+2:sys58732:printright$("    "+str$(sa),4)
  229. 7360 ifb$="x"orb$="y"orb$="j"thenne=ne+1
  230. 7370 ifb$<>"[255]"then7340
  231. 7380 sa=sa-1:az=6:z=z+2:s=s+2:br=12:lg=6:a$(1)=da$:a$(2)="includes"
  232. 7390 a$(3)=right$("    "+str$(ne),4)+" of "+right$("    "+str$(sa),4)
  233. 7400 a$(4)="entries.":a$(5)="":a$(6)="press button":gosub320:gosub990
  234. 7410 goto7030
  235. 7420 az=5:z=z+2:s=s+2:lg=5:br=12:a$(1)="please enter":a$(2)="the cat. no."
  236. 7430 a$(3)="of the item":a$(4)="you want to":a$(5)="find:":mi=1:ma=4:gosub320
  237. 7440 gosub400:ifbe$="_"then7030
  238. 7450 no=val(be$):ifno<1orno>szthen7430
  239. 7460 sa=1:gosub730
  240. 7470 input#1,a$:sa=sa+1:ifa$="[255]"then7500
  241. 7480 b=val(left$(a$,4)):ifno<>bthen7470
  242. 7490 sa=sa-1:goto7145
  243. 7500 az=5:lg=5:br=14:z=z+2:s=s+2:a$(1)="no."+str$(no)+" is not"
  244. 7510 a$(2)="included in":a$(3)=da$:a$(4)="":a$(5)="press button":gosub320
  245. 7520 gosub990:goto7030
  246. 8000 :
  247. 8010 rem print-routine
  248. 8020 :
  249. 8030 ifu%=0then7040
  250. 8040 az=5:s=22:z=2:lg=5:br=12:a$(1)="attach your":a$(2)="printer to"
  251. 8050 a$(3)="the computer":a$(4)="":a$(5)="press button":gosub320
  252. 8060 gosub990:f%=peek(768):poke768,185:open4,4:close4:poke768,f%
  253. 8070 rem ifst<>-128then8050
  254. 8080 open4,4,7:sa=1:gosub730:print#4,da$:print#4
  255. 8090 input#1,a$:ifa$="[255]"then8120
  256. 8100 getx$:ifx$="_"then8120
  257. 8110 print#4,a$:goto8090
  258. 8120 close4:goto1030
  259. 9000 :
  260. 9010 rem edit part ii
  261. 9020 :
  262. 9030 az=7:a$(1)="read data bank":a$(2)="edit data bank":br=14:lg=7:z=2:s=15
  263. 9040 a$(3)="search an item":a$(4)="count entries":a$(7)="return to menu"
  264. 9050 a$(5)="save entries":a$(6)="edit data list":bn=1:en=7:gosub320:gosub510
  265. 9060 onqgoto9070,9180,9420,9320,9310,11030,1030
  266. 9070 az=6:a$(1)="please enter":a$(2)="the number":a$(3)="you want to":s=s+2
  267. 9080 a$(4)="see.":a$(5)="":a$(6)=":":z=z+1:br=12:lg=6:mi=0:ma=4:gosub320
  268. 9090 gosub400:ifbe$=""then9120
  269. 9100 ifbe$="_"then9030
  270. 9110 sa=val(be$):ifsa+20>szorsa<1then9080
  271. 9120 ifsa+20>szorsa<1then9080
  272. 9130 gosub80:gosub730:forz=1to21:input#1,b$(z):next:print"":fori=1to21:w$=""
  273. 9140 forx=1toi:w$=w$+"":next:printw$;"";sa
  274. 9150 sa=sa+1:next:print"":fori=1to21:w$="":forx=1toi:w$=w$+"":next
  275. 9160 printw$;"";b$(i):next:gosub990
  276. 9170 goto9070
  277. 9180 az=6:a$(1)="please enter":a$(2)="the number":a$(3)="you want to":s=s+2
  278. 9190 a$(4)="edit":a$(5)="":a$(6)=":":z=z+1:br=12:lg=6:mi=0:ma=4:gosub320
  279. 9200 gosub400:ifbe$=""then9215
  280. 9205 ifbe$="_"then9030
  281. 9210 sa=val(be$):sw=sa:ifsa+21>szorsa<1then9190
  282. 9215 sw=sa:ifsa+21>szorsa<1then7190
  283. 9220 gosub80:gosub730:fori=1to21:input#1,b$(i):next:print"":fori=1to21:w$=""
  284. 9225 forx=1toi:w$=w$+"":next:printw$;"";sw
  285. 9230 sw=sw+1:next:print"":fori=1to21:w$="":forx=1toi:w$=w$+"":next
  286. 9235 printw$;"";b$(i):next:z=1:br=0:lg=0:a$(1)="":az=1
  287. 9240 fori=1to21:ifui=1thennext:ui=0:goto9180
  288. 9243 tr$="":mi=1:ma=25:s=6:z=z+1:gosub400
  289. 9244 tr$=tr$+left$(be$+"                        ",25)+" "
  290. 9245 ifbe$="_"thenui=1:next:ui=0:goto9180
  291. 9250 mi=4:ma=4:s=32:gosub400:tr$=tr$+be$
  292. 9290 gosub730:print#1,tr$:sa=sa+1:next
  293. 9300 goto9215
  294. 9310 close1:close15:open15,8,15,"i0":open1,8,3,da$:goto9030
  295. 9320 az=5:a$(1)="counting":fori=2to4:a$(i)="":next:s=s+2:z=z+2:lg=5:br=8
  296. 9330 a$(5)="stand by":gosub320:ne=0:sa=1:gosub730
  297. 9340 input#1,a$:b$=right$(a$,4):sa=sa+1
  298. 9350 poke214,z+3:poke211,s+2:sys58732:printright$("    "+str$(sa),4)
  299. 9360 ne=ne+val(b$)
  300. 9370 ifb$<>"[255]"then9340
  301. 9380 sa=sa-1:az=5:z=z+2:s=s+2:br=12:lg=5:a$(1)=da$:a$(2)="includes"
  302. 9390 a$(3)=right$("     "+str$(ne),5)+" stamps"
  303. 9400 a$(4)="":a$(5)="press button":gosub320:gosub990
  304. 9410 goto9030
  305. 9420 az=3:z=z+2:s=s+2:lg=3:br=27:a$(1)="please enter the name of":mi=1:ma=25
  306. 9430 a$(2)="the item you want to find":a$(3)=":":gosub320
  307. 9440 gosub400:ifbe$="_"then9030
  308. 9450 be$=left$(be$+"                        ",25)
  309. 9460 sa=1:gosub730
  310. 9470 input#1,a$:sa=sa+1:ifa$="[255]"then9500
  311. 9480 b$=left$(a$,25):ifbe$<>b$then9470
  312. 9490 sa=sa-1:goto9120
  313. 9500 az=5:lg=5:br=15:z=z+2:s=s+2:a$(1)="the name is not"
  314. 9510 a$(2)="included in":a$(3)=da$:a$(4)="":a$(5)="press button":gosub320
  315. 9520 gosub990:goto9030
  316. 10000 :
  317. 10010 rem edit data list i
  318. 10020 :
  319. 10030 az=6:a$(1)="please enter":a$(2)="the number":a$(3)="you want to":s=s+2
  320. 10040 a$(4)="edit":a$(5)="":a$(6)=":":z=z+1:br=12:lg=6:mi=0:ma=4:gosub320
  321. 10050 gosub400:ifbe$=""then10080
  322. 10060 ifbe$="_"then7030
  323. 10070 sa=val(be$):sw=sa:ifsa+21>szorsa<1then7190
  324. 10080 sw=sa:ifsa+21>szorsa<1then10190
  325. 10090 gosub80:gosub730:fori=1to21:input#1,b$(i):next:print"":fori=1to21:w$=""
  326. 10100 forx=1toi:w$=w$+"":next:printw$;"";sw
  327. 10110 sw=sw+1:next:print"":fori=1to21:w$="":forx=1toi:w$=w$+"":next
  328. 10120 printw$;"";b$(i):next:z=1:br=0:lg=0:a$(1)="":az=1
  329. 10130 fori=1to21:ifui=1thennext:ui=0:goto7180
  330. 10140 tr$=left$(b$(z),22):mi=1:ma=1:s=28:z=z+1:gosub400:tr$=tr$+be$:tr$(1)=be$
  331. 10150 ifbe$="_"thenui=1:next:ui=0:goto10040
  332. 10160 gosub730:print#1,tr$:sa=sa+1:next
  333. 10170 goto10080
  334. 11000 :
  335. 11010 rem edit data list ii
  336. 11020 :
  337. 11030 az=6:a$(1)="please enter":a$(2)="the number":a$(3)="you want to":s=s+2
  338. 11040 a$(4)="edit":a$(5)="":a$(6)=":":z=z+1:br=12:lg=6:mi=0:ma=4:gosub320
  339. 11050 gosub400:ifbe$=""then11080
  340. 11060 ifbe$="_"then7030
  341. 11070 sa=val(be$):sw=sa:ifsa+21>szorsa<1then7190
  342. 11080 sw=sa:ifsa+21>szorsa<1then11190
  343. 11090 gosub80:gosub730:fori=1to21:input#1,b$(i):next:print"":fori=1to21:w$=""
  344. 11100 forx=1toi:w$=w$+"":next:printw$;"";sw
  345. 11110 sw=sw+1:next:print"":fori=1to21:w$="":forx=1toi:w$=w$+"":next
  346. 11120 printw$;"";b$(i):next:z=1:br=0:lg=0:a$(1)="":az=1
  347. 11130 fori=1to21:ifui=1thennext:ui=0:goto7180
  348. 11140 tr$=left$(b$(z),26):mi=4:ma=4:s=32:z=z+1:gosub400:tr$=tr$+be$
  349. 11150 ifbe$="____"thenui=1:next:ui=0:goto11040
  350. 11160 gosub730:print#1,tr$:sa=sa+1:next
  351. 11170 goto11080
  352.